home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1998 #1 / Amiga Plus 1998 #1.iso / demo-versionen / haage&partner / warpup-warpos / source / exceptions / fp.p < prev    next >
Text File  |  1997-09-24  |  968b  |  35 lines
  1.                 incdir  include:
  2.                 incdir  lvo:
  3.  
  4. **      '(C) Copyright 1997 Haage & Partner Computer GmbH'
  5. **           All Rights Reserved
  6.  
  7.                 include powerpc/ppcmacros.i
  8.                 include powerpc/powerpc.i
  9.  
  10.                 include powerpc_lib.i
  11.  
  12.                 xref    _PowerPCBase
  13.                 xref    _LinkerDB
  14.                 executable
  15.                 oea
  16.                 version 9
  17. start
  18.                 prolog  1024
  19.                 li      r4,HW_FPEXCON
  20.                 CALLPOWERPC     SetHardware
  21.                 liw     r4,FPF_EN_OVERFLOW
  22.                 CALLPOWERPC     ModifyFPExc
  23.                 lf      f0,fpvalue
  24.                 fadd    f0,f0,f0
  25.                 liw     r4,FPF_DIS_OVERFLOW
  26.                 CALLPOWERPC     ModifyFPExc
  27.                 li      r4,HW_FPEXCOFF
  28.                 CALLPOWERPC     SetHardware
  29.                 epilog
  30.  
  31.                 section data
  32. fpvalue         dc.l    $7fefffff,$ffffffff
  33.  
  34.  
  35.